(encode-char): Fix for the ASCII case.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index f37c3704cf2875587ba14d122e432a6fdc42b2ed..f15e604c03778f162fe2991c0d9f2f7cf5610fe3 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -370,7 +370,7 @@ code-point in CCS.  Currently not supported and just ignored."
                     (setq split (split-char trans)
                           charset (car split)))
                 (cond ((eq charset 'ascii)
-                       char)
+                       (or trans char))
                       ((eq charset 'latin-iso8859-1)
                        (+ (nth 1 split) 128))
                       ((eq charset 'mule-unicode-0100-24ff)